* lisp/subr.el (subr-primitive-p): New inline function.

diff --git a/lisp/subr.el b/lisp/subr.el
index 006766587bce9795a881422372151d7290a867af..1dd768c3a61031320756feb3be0ced1afbcde76f 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -233,6 +233,11 @@ value of last one, or nil if there are none.
   (declare (indent 1) (debug t))
   (cons 'if (cons cond (cons nil body))))
 
+(defsubst subr-primitive-p (object)
+  "Return t if OBJECT is a built-in primitive function."
+  (and (subrp object)
+       (not (subr-native-elisp-p object))))
+
 (defsubst xor (cond1 cond2)
   "Return the boolean exclusive-or of COND1 and COND2.
 If only one of the arguments is non-nil, return it; otherwise